50 SA=1:REM" SEK.ADR. DRUCKER
80 [151]53280,1:[151]53281,11:[153]"LOADPRINT	":[151]650,128:[134]NE$(48):V[178]15
82 [153]" (null)APELENOVER 12/15  (LEN) 1995 BY LEN(null) (null)ERLAG ";:[151]808,225
83 [153]"WAITTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
84 PRINT" [193]UTOR: [212]HORSTEN [218]IELKE":PRINTSPC(8)"[204]EMBERGSTR. 14
85 [153][166]8)"78667 (null)ILLINGENDORF":[153]" (null)IELEN STR$ANK AN LEFT$OLGER (null)CHMIDT, DE";
86 [153]"R DIE  RIGHT$DEE ZU DIESEM (null)ROGRAMM HATTE."
87 [153]" CHR$RUESSE AN:":[153]" - STR$OLMAN     - PEEKIRGIT     - (null)HOMAS (null).
88 PRINT" - [211]ANDRA [200].  - [217]VONNE     - [200]NNNG
89 [153]" - (null)UEDIGER   - STR$ANIELA    - MID$OERN
90 PRINT" - [205]ARTINA    - [195]ARMEN     - [211]TEFAN
91 [153]" - (null)ANUELA    - RIGHT$SOLDE     - (null)ICHAEL
92 PRINT" - [196]E[196]E       - [205]ONI       - [202]ENS
93 [153]" - (null)HOMAS (null).  - (null)ANDRA (null).  - ATNNDY
94 PRINT" - [205]ARKUS     - [213]TE        - [205]ARION
95 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO";
96 [153]"                                       ":[151]2023,160
101 [134]A$(48),N$(40):[129]L[178]1[164]39:L$[178]L$[170][199](160):LE$[178]LE$[170][199](32):[130]
102 [129]W[178]4[164]32:A$(W)[178]"<                       <                       <"
103 [130]:K$[178][199](27)
104 [129]A[178]33[164]46:A$(A)[178]"<                                               <":[130]
105 A$(34)[178]"LENSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$ATNSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$SGN"
109 A$(39)[178]"LENSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$SGN"
110 A$(45)[178]"TANSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$ATNSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$ATNSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$(null)"
111 A$(43)[178]"LENSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$PEEKSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$PEEKSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$SGN"
113 [140]:A$(41)[178]"<"[170][199](15)[170]"              "
114 [129]WW[178]1[164]63:[135]A:A$(41)[178]A$(41)[170][199](A):[130]
115 [153]""[163]57)"(null)PACE!":[151]198,.:[146]198,1
116 [151]53280,12:[153]"LOADLIST	"
117 [131]40,87,41,32,49,52,46,32,78,111,118,101,109,98,101,114,32,49,57,57,52
118 [131]32,98,121,32,87,105,122,97,114,100,32,111,102,32,84,72,69,32,83,69,80
119 [153]"LOAD(null)AME: ";[200](N$(1),30);" ";N$(2):[131]65,82,65,84,69,32,84,87,79,33
120 [153]"  1 WAIT VALINGABE VON MAX. 2 *"V"(null)ITELN"
121 [153]"  2 WAIT ATNUSDRUCK":[151]53280,12:[131]32,32,32,32,18,32,32,32,32,32,179
122 [153]"  3 WAIT (null)EBERBLICK
123 PRINT"  4 [146] [197]DITIEREN
124 [153]"  5 WAIT (null)ADEN
125 PRINT"  6 [146] [211]PEICHERN      7 [146] [196]IRECTORY":GOSUB6000
130 POKE198,.:WAIT198,1:GETW$:W=VAL(W$):IFW=0ORW>7THEN130
140 PRINT"[147]";:ONWGOTO400,144,1000,2000,15000,16000,600
143 GOTO119
144 A$(36)=A$(35):IFEI=.THEN119
145 CLOSE1:OPEN1,4,SA:CLOSE1:IFST<>.THEN119
150 PRINT"[147][197]MPFOHLENE [206][204][209] - [211]CHRIFTART:":ZW=.
151 PRINT"    - [207]RATOR":PRINT"      ODER":PRINT"    - [207]RATOR [201]TALIC
155 [153]"(null)WAITLIM-LENOVER ODER (null)WAITORM-LENOVER? (null)WAIT = VALXIT!":[151]198,.:[146]198,1:[161]ZW$
160 [139]ZW$[178]"S"[176]ZW$[178]"(null)"[167]ZW[178]1
170 [139]ZW$[178]"X"[176]ZW$[178]"(null)"[167]119
180 FZ[178].:[129]D[178]1[164]3:[139]N$(17[170]D)[179][177][200](L$,23)[167]FZ[178]1:[130]
182 [129]D[178]1[164]3:[139]N$(32[170]D)[179][177][200](L$,23)[167]FZ[178]1:[130]
183 [139]FZ[167]7000
184 [141]200:[129]D[178]1[164]3:[141]300:[130]
185 [129]ET[178]6[164]17:[141]61000:EG[178](ET[171]5)[172]2:[141]5005
187 [129]Z[178]1[164]2:D[178](ET[171]5)[172]2[170]1[170]Z:[141]300:[130]:[130]
190 [129]Z[178]1[164]5:ET[178]Z:[141]61000:[130]:[141]5000:[129]D[178]34[164]45:[141]300:[130]:[137]119
200 [160]1:[160]7:[153]"STR$ATENUEBERTRAGUNG!":[159]1,4,SA
210 [152]1,K$;[199](77);
211 [152]1,K$;[199](51);[199](21);
220 A$(1)[178]"(null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$PEEKSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$SIN"
222 A$(2)[178]"<        SEITE A        <        SEITE B        <"
223 A$(3)[178]"LENSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$VALSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$SGN":[142]
300 [139]D[178]3[167][152]1,K$;[199](106);[199](4);
302 [139]D[178]4[167][152]1,K$;[199](74);[199](4);
303 [139]D[178]34[167][152]1,K$;[199](106);[199](6);
305 [139]D[178]38[175]ZW[178].[167][152]1,K$;[199](74);[199](9);
306 [139]D[178]27[167][152]1,K$;[199](45);[199](0);
307 [152]1,K$;[199](45);[199](0);
308 [139]D[177]3[175]D[179]27[175]D[173]2[178][181](D[173]2)[167][152]1,K$;[199](45);[199](1);
311 [139]ZW [175]D[178]37[167][142]
312 [139]ZW [175]D[178]36[167]A$(D)[178]A$(37)
313 [139]D[178]37[167][152]1,K$;[199](106);[199](9);
319 [139]D[178]27[167]A$(D)[178]A$(38)
320 [152]1,A$(D):[142]
400 X[178].:Y[178]3:[141]422:EI[178]1
401 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FRETAB(USRTAB(USRTAB(USRTAB(USRTAB( WAITTAB(USRTAB(USRTAB(USRTAB(USRTAB(FRETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":L[178]38:HV[178]1:F$[178]"(null)AME:CMDCMDCMDCMDCMD"
402 [141]60000:Y[178]6:NE$(HV)[178][200](NE$(HV)[170]L$,43):[139]ED[167][142]
405 HV[178]2:L[178]2:F$[178]"(null)UMMER: ":[141]60000
406 Y[178]8:[139]ED[167][142]
410 HV[178]3:L[178]2:F$[178]"(null)OPIE VON:    (LENSTR$/(null)(null)/(null)LEN/STR$LEN)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD":[141]60000
411 Y[178]10:[139]ED[167][142]
415 HV[178]4:L[178]10:F$[178]"STR$ATUM:            (27-08-1993)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
416 [141]60000:Y[178]12:[139]ED[167][142]
420 HV[178]5:L[178]2:F$[178]"STR$OLBY (null)(null):    (PEEK!/LEN!/(null)(null))CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD":[141]60000:[139]ED[167][142]
421 [153]"LOAD":[141]423:[137]430
422 :
423 [153]"LOADAE = @ / OE = * / UE = ^ / SS = \
426 RETURN
430 FOREG=2TO30STEP2
431 L=23:Y=4:F$="[211]IDE [193], [208]OS"+STR$(EG/2)+": ":GOSUB500:GOSUB3000:HV=5+EG/2:GOSUB60000
432 IFEDTHENRETURN
433 NEXT:PRINT"[147]":GOSUB423
440 FOREG=2TO30STEP2
441 L=23:Y=4:F$="[211]IDE [194], [208]OS"+STR$(EG/2)+": ":GOSUB500:GOSUB3000:HV=20+EG/2:GOSUB60000
442 IFEDTHENRETURN
443 NEXT
499 GOTO119
500 IFEG<20THENPRINT"               [163][183][163][183][163][183][163][183][163][183][163] [146][163][183][163][183][163][183][163][183][163][183][163] ":RETURN
510 PRINT"                [163][183][163][183][163][183][163][183][163][183][163] [146][163][183][163][183][163][183][163][183][163][183][163]":RETURN
600 GOSUB749:GOTO119
749 CLOSE1:OPEN1,8,1:CLOSE1:IFST<>0THEN119
750 CLOSE1:PRINT"[147] 0 ";:OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$,A$,A$:X$=CHR$(0)
760 FORI=1TO7:GETA$,B$,C$,D$:PRINTA$B$C$D$;:NEXT:PRINT:GETA$,A$,A$,B$
770 IFST THENSYS65484:CLOSE1:GOTO790
780 PRINTASC(A$+X$)+256*ASC(B$+X$);:GOTO760
790 PRINT" [212]ASTE![146]":POKE198,.:WAIT198,1:POKE198,.:RETURN
1000 GOSUB423:PRINT:PRINT"[206]AME:":PRINTN$(1)
1001 PRINT"[206]UMMER: ";N$(2)
1002 PRINT"[203]OPIE VON: ";N$(3)
1003 PRINT"[196]ATUM: ";N$(4)
1004 PRINT"[196]OLBY: ";N$(5):PRINT"[212][193][211][212][197]!":POKE198,.:WAIT198,1:PRINT"[147]";:GOSUB423
1005 PRINT:FORL=1TO15:PRINT"[211]IDE [193], [208]OS"L"[157]: ";N$(L+5):NEXT
1006 PRINT"[212][193][211][212][197]!":POKE198,.:WAIT198,1:PRINT"[147]";:GOSUB423:PRINT
1007 FORL=1TO15:PRINT"[211]IDE [194], [208]OS"L"[157]: ";N$(L+20):NEXT
1009 PRINT"[212][193][211][212][197]!":POKE198,.:WAIT198,1:PRINT"[147]":GOTO119
1115 POKE53280,12:PRINT"[147][153]	"
2000 X=.:GOSUB423:PRINT"[197]DITIEREN!":ED=1:Y=3
2001 PRINT"[206]AME:[157][157][157][157][157]";N$(1):GOSUB2900:IFW$<>"J"THEN2010
2005 GOSUB3000:GOSUB401:GOSUB3005
2010 Y=4:GOSUB3001:PRINT"[206]UMMER: ";N$(2)
2011 GOSUB2900:IFW$<>"J"THEN2020
2015 GOSUB3000:GOSUB405
2020 Y=4:GOSUB3000:PRINT"[203]OPIE VON: ";N$(3)
2021 GOSUB2900:IFW$<>"J"THEN2030
2025 GOSUB3000:GOSUB410
2030 Y=4:GOSUB3000:PRINT"[196]ATUM: ";N$(4)
2031 GOSUB2900:IFW$<>"J"THEN2040
2035 GOSUB3000:GOSUB415
2040 Y=4:GOSUB3000:PRINT"[196]OLBY [206][210]: ";N$(5)
2041 GOSUB2900:IFW$<>"J"THEN2050
2045 GOSUB3000:GOSUB420
2050 FORLA=1TO15:Y=4:GOSUB3000:PRINT"[211]IDE [193], [208]OS"LA"[157]: ";N$(LA+5)
2051 GOSUB2900:IFW$<>"J"THEN2060
2052 EG=LA*2
2055 GOSUB3000:GOSUB431:GOSUB3005
2060 NEXT
2061 FORLA=1TO15:Y=4:GOSUB3000:PRINT"[211]IDE [194], [208]OS"LA"[157]: ";N$(LA+20)
2062 GOSUB2900:IFW$<>"J"THEN2080
2063 EG=LA*2
2065 GOSUB3000:GOSUB441:GOSUB3005
2080 NEXT:ED=.
2899 GOTO119
2900 PRINT"[193]ENDERN? (J/N)                        "
2901 POKE198,.:WAIT198,1:GETW$:RETURN
2999 PRINT"[212][193][211][212][197]!":POKE198,.:WAIT198,1:PRINT"[147]":GOTO119
3000 PRINT"                                       ":GOTO3010
3001 PRINT"                                       "
3002 PRINT"                                       ":RETURN
3005 PRINT"                                       ":RETURN
3010 PRINT"                  "
3011 PRINT"                  ":RETURN
5000 A$(37)="[179] "+NE$(1)
5001 A$(37)=A$(37)+"     "+NE$(2)+" [179]"
5002 A$(44)="[179] KOPIE VON:"+NE$(3)+" [179]"
5003 A$(44)=A$(44)+" DATUM:"+NE$(4)+" [179]"
5004 A$(44)=A$(44)+" DOLBY NR:"+NE$(5)+" [179]":RETURN
5005 :
5006 HV=EG/2+5:A$(2+EG)="[179]"+NE$(HV)+"[179]"
5008 HV=EG/2+20:A$(2+EG)=A$(2+EG)+NE$(HV)+"[179]":RETURN
6000 PRINT"> [196][201][208]S FUER [211][212][193][210] [204][195]-10 MIT [215]IESEMANN:   >"
6001 PRINT"> [196][201][208]: 1-1 1-2 1-3 1-4 1-5 1-6 1-7 1-8"
6002 PRINT"> [197][201][206]:         [192][192][192] [192][192][192] [192][192][192] [192][192][192]
6003 [153]"> ATN(null)(null): TANTANTAN TANTANTAN                 TANTANTAN TANTANTAN
6004 PRINT">":PRINT"> [196][201][208]: 2-1 2-2 2-3 2-4"
6005 PRINT"> [197][201][206]: [192][192][192] [192][192][192]     [192][192][192]
6006 [153]"> ATN(null)(null):         TANTANTAN":[142]
7000 [141]7100:[129]D[178]1[164]3:[141]7300:[130]
7001 [129]ET[178]6[164]20:[141]61000:EG[178](ET[171]5)[172]2:[141]5005
7002 [129]Z[178]1[164]2:D[178](ET[171]5)[172]2[170]1[170]Z:[141]7300:[130]:[130]
7004 [129]Z[178]1[164]5:ET[178]Z:[141]61000:[130]:[141]5000:[129]D[178]34[164]45:[141]7300:[130]:[137]119
7100 [160]1:[160]7:[153]"STR$ATENUEBERTRAGUNG!":[159]1,4,SA
7102 [152]1,K$;[199](77);K$;[199](51);[199](17);
7104 [141]220:[142]
7300 [139]D[178]3[167][152]1,K$;[199](106);[199](2);
7302 [139]D[178]4[167][152]1,K$;[199](74);[199](4);
7304 [139]D[178]34[167][152]1,K$;[199](51);[199](21);K$;[199](106);[199](6);
7306 [139]D[178]35[167][152]1,K$;[199](45);[199](0);
7308 [139]D[178]37[167][152]1,K$;[199](106);[199](9);
7310 [139]D[178]38[167][152]1,K$;[199](74);[199](9);
7312 [152]1,K$;[199](45);[199](0);
7314 [139]D[177]3[175]D[179]33[175]D[173]2[178][181](D[173]2)[167][152]1,K$;[199](45);[199](1);
7316 [139]D[178]2[167][152]1,K$;[199](74);[199](1);
7318 [139]ZW [175]D[178]37[167][142]
7320 [139]ZW [175]D[178]36[167]A$(D)[178]A$(37)
7322 [139]ZW[178].[175]D[178]36[167]A$(D)[178]A$(35)
7324 [152]1,A$(D):[142]
15000 :
15001 [153]"LOAD(null)OAD!":HV[178]40:L[178]2:[160]1:[159]1,8,1:[160]1:[139]ST[179][177]0[167]119
15002 X[178]0:Y[178]3:F$[178]"(null)UMMER: ":[141]60000:[139][200](N$(HV),1)[178]"$"[167][141]750:[137]15000
15003 [159]5,8,5,">"[170]N$(HV)[170]"*,P,R":[132]5,H
15010 [129]L[178]1[164]35:[132]5,N$(L):[130]:[160]5:EI[178]1:[139]ST[167]EI[178].
15011 [160]5:EI[178]1
15013 [137]119
16000 [139]EI[178].[167]119
16001 [153]"LOAD(null)AVE!":HV[178]40:[160]1:[159]1,8,1:[160]1:[139]ST[179][177].[167]119
16002 N$(HV)[178]N$(2)[170]"/"[170]N$(1):N$(HV)[178][200](N$(HV),16)
16003 [153]"    ASCILE WIRD UNTER (null)UMMER "N$(2)" ABGE-"
16004 [153]"    SPEICHERT! (null)ORHANDENES ASCILE MIT"
16005 [153]"    GLEICHER (null)UMMER WIRD GELOESCHT!"
16006 [153]"    RIGHT$ST DAS (null)(null) (J/N)?":[151]198,.:[146]198,1:[161]AW$:[139]AW$[179][177]"J"[167]119
16007 [153]"(null)LEN(null)ATN(null)LENLEFT$RIGHT$(null)CHR$: >"N$(2)"*":[159]1,8,15,"S:>"[170]N$(2)[170]"*":[160]1
16010 [153]"(null)ATN(null)RIGHT$(null)CHR$:     >"N$(HV):[159]5,8,5,"@:>"[170]N$(HV)[170]",P,W":R$[178][199](13)
16011 [152]5,V;R$:[129]L[178]1[164]35:[152]5,N$(L);R$;:[130]:[152]5,R$:[160]5
16012 [137]119
20000 [159]7,4,7:[159]1,4,1
20001 [152]1,[199](33);[199](13);:[160]1:[160]7
21000 [159]7,4,7:[159]1,4,1
21001 [129]X[178]30[164]64:[152]1,[199](X);:[130]:[152]1,[199](13);:[160]1:[160]7
60000 [151]198,.:N$(HV)[178]"":NE$(HV)[178]"":[153]"";:[139]Y[167][129]D[178].[164]Y[171]1:[153]:[130]
60001 [153][163]X);F$;
60002 [153]"TOWAITCMD";
60003 [161]H$:C[178][198](H$[170][199](0)):[139]C[178]0[176]C[178]44[176]C[178]59[176]C[178]58[167]60003
60005 [139]C[178]20[167]60015
60006 [139]C[178]222[176]C[178]186[176]C[178]192[176]C[178]255[176]C[178]94[176]C[178]92[167]60010
60007 [139](C[177]34[175]C[179]91)[176](C[177]192[175]C[179]219)[176]C[178]32[176]C[178]33[176]C[178]160[167]60010
60008 [139]C[178]13[167]N$(HV)[178][200](N$(HV)[170]L$,L):NE$(HV)[178][200](NE$(HV)[170]L$,L):[153]" ":[142]
60009 [137]60003
60010 [139]H$[178]" "[167]H$[178]"CLOSE"
60011 [153]H$;:N$(HV)[178]N$(HV)[170]H$
60013 [139][195](N$(HV))[177]L[167][153]"CMD";:N$(HV)[178][200](N$(HV),L):NE$(HV)[178][200](NE$(HV),L)
60014 [137]60002
60015 [139][195](N$(HV))[178].[167]60002
60016 [153]"CMD  CMDCMD";:N$(HV)[178][200](N$(HV),[195](N$(HV))[171]1)
60018 [137]60002
61000 [139]N$(ET)[178][200](L$,23)[167]NE$(ET)[178][200](LE$,23):[137]61110
61004 NE$(ET)[178]"":[129]P[178]1[164][195](N$(ET)):C[178][198]([202](N$(ET),P,1))
61005 [139]C[178]42[167]61009
61006 [139]C[177]31[175]C[179]64[167]61100
61007 [139]C[177]192[175]C[179]219[167]C[178]C[171]128:[137]61100
61008 [139]C[177]64[175]C[179]91[167]C[178]C[170]32:[137]61100
61009 [139]C[178]64[167]C[178]123
61010 [139]C[178]42[167]C[178]124
61011 [139]C[178]94[167]C[178]125
61012 [139]C[178]92[167]C[178]126
61013 [139]C[178]186[167]C[178]91
61014 [139]C[178]192[167]C[178]92
61015 [139]C[178]222[176]C[178]255[167]C[178]93
61016 [139]C[178]160[167]C[178]32
61100 NE$(ET)[178]NE$(ET)[170][199](C):[130]
61110 [139]ET[177]5[175]ET[179]21[167]ET[178]ET[170]15:[137]61000
61120 ET[178]ET[171]15:[142]